home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / text / hyper / adoc.lha / ADoc / InstallADoc < prev    next >
Text File  |  1997-04-06  |  2KB  |  89 lines
  1. ;---------------------------------------------------------------
  2. ;
  3. ; Installer script for ADoc
  4. ; $VER: 36.0 (06.04.97)
  5. ; Written by Denis GOUNELLE
  6. ;
  7. ;---------------------------------------------------------------
  8. ;
  9. (complete 0)
  10. (set ProgVer  "5.00")
  11. (set ProgName "ADoc")
  12. (set KickVer  (/ (getversion) 65536))
  13. ;
  14. (set InstallOpt
  15.     (askoptions (prompt "Which part of the program whould you like to install ?")
  16.             (help @askoptions-help)
  17.             (choices "Program" "Locales")
  18.     )
  19. )
  20. ;
  21. ;--------------------- Install the program --------------------
  22. ;
  23. (complete 30)
  24. (if (BITAND InstallOpt 1)
  25.     ((set ProgDir (askdir
  26.         (prompt "Select the directory where to install ADoc")
  27.         (help "The program will be copied in this directory. You may want to install ADoc in a directory which is in your default path.")
  28.         (default "SYS:Utilities/")
  29.         )
  30.      )
  31.      (copyfiles (prompt "Installing program")
  32.         (help @copyfiles-help)
  33.         (source ProgName)
  34.         (newname "ADoc")
  35.         (dest ProgDir)
  36.         (infos)
  37.      )
  38.     )
  39. )
  40. ;
  41. ;--------------------- Install the locale --------------------
  42. ;
  43. (complete 60)
  44. (if (BITAND InstallOpt 2)
  45.     ((set Langage (askchoice (prompt "Which locale do you want to install ?")
  46.                 (help @askchoice-help)
  47.                 (choices "français" "none")))
  48.      (if (= Langage 0) (set LocaleName "français"))
  49.      (if (NOT (= Langage 1))
  50.         ((set LocaleSrc (tackon "catalogs" LocaleName))
  51.          (set LocaleDst (tackon "LOCALE:" LocaleSrc))
  52.          (set LocaleName "ADoc.catalog")
  53.          (if (NOT (exists LocaleDst)) (makedir LocaleDst (prompt "Creating locale directory") (help @makedir-help)))
  54.          (copyfiles (prompt "Installing locale")
  55.             (help @copyfiles-help)
  56.             (source (tackon LocaleSrc LocaleName))
  57.             (dest LocaleDst)
  58.          )
  59.          (set LocaleName "common.catalog")
  60.          (copyfiles (prompt "Installing locale")
  61.             (help @copyfiles-help)
  62.             (source (tackon LocaleSrc LocaleName))
  63.             (dest LocaleDst)
  64.         ))
  65.     ))
  66. )
  67. ;
  68. ;--------------------- Install ADOC: --------------------
  69. ;
  70. (complete 90)
  71. (if (BITAND InstallOpt 1)
  72.     ((set ADocDir (askdir
  73.         (prompt "Which directory assign to ADOC: ?")
  74.         (help "Select the directory where are (or will be) installed the documentation files to use with ADoc")
  75.         (default (expandpath "ADOC:"))
  76.         (newpath))
  77.      )
  78.      (makeassign "ADOC" ADocDir)
  79.      (startup "ADoc" (prompt "Updating your S:User-Startup file")
  80.         (help "Adding the ADOC: assign to your startup sequence")
  81.         (command (cat "Assign ADOC: " ADocDir "\n"))
  82.      )
  83.      (set @default-dest ProgDir)
  84.     )
  85. )
  86. ;
  87. (complete 100)
  88.  
  89.